10 REM DUMP
11 POKE53280,0:POKE53281,0
12 PRINT "[147] DUMP A FILE IN DEC."
14 PRINT "NAME OF FILE ";
16 INPUT F$
20 OPEN15,8,15:GOSUB200
21 C=0
22 OPEN5,8,5,"0:"+F$+"*,R"
25 GOSUB200
26 PRINT"[158]";RIGHT$(STR$(100000+C),5);"[153]: ";
28 FOR I=1 TO 8
30 : GET #5,X$
31 : C=C+1
32 : IF ST AND 64 THEN 90
35 : IF LEN(X$)=0 THEN X=0:GOTO 38
36 : X=ASC(X$)
38 : X$=STR$(1000+X)
39 : X$=RIGHT$(X$,3)
40 : PRINT X$;" ";
41 IFINT(C/160)=C/160THENGOSUB300
42 NEXT
44 PRINT
50 GOTO 25
90 GOSUB200
100 CLOSE5:GOSUB200:CLOSE15
110 END
200 INPUT#15,AA$,BB$,CC$,DD$:IFAA$="00"THENRETURN
210 PRINT:PRINTAA$;"  ";BB$;"  ";CC$;DD$:PRINT
220 RETURN
300 GETZ$:IFZ$=""THEN300
310 PRINT" ":RETURN